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BAB 3 
WINDowSs EXPLORER 


Mulai Bab 3 ini dan selanjutnya, kita akan mencoba membuat 
tiruan program-program aplikasi pada Windows dengan meman- 
faatkan pola VB Enterprise Edition Controls. 


Program pertama ini mencontoh aplikasi Windows Explorer, untuk 
menampilkan folder dan file pada komputer Anda. 


31 Desain Form 


Buatlah folder baru, namai dengan “Explorer”. Jalankan Visual 
Basic, pilih pola VBEnterprise Edition Controls. 


Pada form, sisipkan objek ImageList, namai dengan “imgMain”. 
Klik kanan pada imgMain, pilihlah 16 x 16 pada tab General. Klik 
tab Images dan klik Insert Picture... Masukkan 25 gambar ikon 
(ikon-ikon disediakan pada CD yang disertakan). 


Ubah nama Key dari tiap-tiap Image seperti table di bawah ini. 














Index Key Index Key 
1 komputer 14 xls 
2 ini 15 mdb 
3 inf 16 recycle 
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4 mid 17 filegeneric 
5 wav 18 mp3 

6 bat 19 folder1 

7 exe 20 folder2 

8 dll 21 diska 

9 imf 22 cdrom 

10 txt 23 desktop 
11 jpg 24 disket 

12 drivelepas 25 diskanet 
13 doc 

















Catatan: 








Hati-hati dalam pemberian nama Key dari Image-lmage pada ImagelList. Per- 
bedaan huruf besar dan huruf kecil sangat berpengaruh pada hasil (bersifat case 
sensitif). 











Sisipkan objek kontrol dan atur propertinya seperti pada table di 
bawah ini: 



































Pengaturan pada: Form1 
No Objek Kontrol Properti Perubahan 
Name tvwExplor 
2 TreeView 
ImageList imgMain 
Name IvwExplor 
3 ListView 
ImageList imgMain 
Name rtbExplor 
4 RichTextBox Appearance O-rtfFlat 
ScrollBar 3-rtfBoth 
Name pgbExplor 
5 ProgressBar 
Scrolling 1-ccScrollingSmooth 
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Simpan semua komponen project di direktori “Explorer”. 


.J My Explorer Jok 

3 Sample Node IwwExplor 
1 Sample Node 
y3 Sample Node 

NI Sample Node 























Gambar 3.1. Desain form Explorer. 


Setelah desain form selesai, klik menu Project-References... Pada 
dialog “References-Project1”, tandai kotak periksa dari list “Micro- 
soft Scripting Runtime”. Jika Anda tidak menemukan list ini, klik 
tombol Browse... Pada kotak dialog “Add References”, kliklah file 
“scrrun.dll” (alamat menunjukkan direktori WindowsiSystem atau 
Windows'System32). Klik Open. 


3.2 Baris Kode 





at Option Explicit 


2 Private Declare Function SendMessage 

Lib "user32" Alias "SendMessageA" (—— 

ByVal hwnd As Long, ByVal wMsg As Long, — 
ByVal wParam As Long, 1Param As Any) As Long 











3 Private ObjekFile As New FileSystemObject 
4 Dim strPathX As String 

5 Dim TwipsInHimetric! 

6 Dim sPath As String 

7 Private Sub Form Load () 

8 On Error Resume Next 
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ON On Ss 


w 











Dim drvDrive As Drive 
Dim strIkon As String 
Dim strNama As String 
Dim f1ldFolder As Folder 
Dim fldDrive As Folder 


TwipsInHimetric — ScaleX(1l, vbTwips, 
vbHimetric) 


"Mengenali semua drive pada sistem komputer 
For Each drvDrive In ObjekFile.Drives 
If drvDrive.DriveType - CDRom Then 
strikon - "cdrom" 
If drvDrive.IsReady Then 
strNama — drvDrive.VolumeName 
Else: strNama - "CD-ROM" 
End If 


ElseIf drvDrive.DriveType — Fixed Then 
strIkon - "diska" 
If drvDrive.IsReady Then 
strNama —- drvDrive.VolumeName 
Else: strNama — "Hard Drive" 
End If 


ElseIf drvDrive.DriveType — Remote Then 
strIkon - "diskanet" 
If drvDrive.IsReady Then 
strNama — drvDrive.ShareName 
Else: strNama — "Network Drive" 
End If 


ElseIf drvDrive.DriveType — Removable 


Then 

If drvDrive.DriveLetter — "A" Or 
drvDrive.DriveLetter — "B" Then 
strIkon - "disket" 

Else: strIkon - "drivelepas" 

End If 


If drvDrive.IsReady Then 
strNama — drvDrive.VolumeName 


Else 
If drvDrive.DriveLetter — "A" Or 
drvDrive.DriveLetter — "B" Then 
strNama - "Floppy Drive" 
Else: strNama —- "Drive Lepas" 
End If 
End If 


If drvDrive.IsReady Then 

strNama — drvDrive.VolumeName 
Else 

strNama - "Tidak diketahui" 
End If 
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End If 


"Membuat cabang pada TreeView dengan teks "Komputer" 


tvwExplor.Nodes.Add , , "pe", 
"komputerku", "komputer", "komputer" 


tvwExplor.Nodes.Add "pc", 
tvwChild, drvDrive.Path, 
strNama & " (" & 

UCase (drvDrive.DriveLetter) & ":)", strIkon 


If drvDrive.IsReady Then 
Set fldDrive - ObjekFile.GetFolder( 
drvDrive.RootFolder) 


For Each fldFolder In fldDrive.SubFolders 


'Membuat daftar Drive pada TreeView 
tvwExplor.Nodes.Add drvDrive.Path, 4, 
fldFolder.Path, fldFolder.Name, "folderl" 

Next 


End If 
Next 


"Memilih cabang pada TreeView 


Me.tvwExplor.Nodes (1) .Selected — True 


End Sub 
Private Sub Form Resize() 


"Mengatur letak dan ukuran kontrol-kontrol pada form 
'saat form berubah ukuran 


Me.tvwExplor.Move tvwExplor.Left, 
tvwExplor.Top, tvwExplor.Width, 
Me.ScaleHeight - Me.pgbExplor.Height 


Me.lvwExplor.Move lvwExplor.Left, 
lvwExplor.Top, Me.IlvwExplor.Width, — 
Me.ScaleHeight - Me.pgbExplor.Height 


Me.pgbExplor.Move 0, Me.ScaleHeight - 
Me.pgbExplor.Height, Me.ScaleWidth, 
Me.pgbExplor.Height 


Me.rtfExplor.Width —- Me.ScaleWidth - 
Me.lvuwExplor.Width - 
Me.tvwExplor.Width - 100 


Me.rtfExplor.Height - Me.ScaleHeight - 
Me.pgbExplor.Height 





End Sub 


Private Sub lvwExplor ItemClick( 
ByVal Item As MSComct1Lib.ListItem) 


Dim nSt As Integer 
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"Menuliskan alamat direktori pada TitleBar form 


Me.Caption - strPathX & IIf( 
Len(strPathX) «- 4, "", "N") & Item.Text 


"Memanggil prosedur LihatFile 
LihatFile Me.Caption 
End Sub 


Private Sub tvwExplor Collapse( 
ByVal Node As MSComct1Lib.Node) 


If Node.Image — "folder2" Then 
Node.Image — "folder1l" 
End Sub 


Private Sub tvwExplor Expand( 
ByVal Node As MSComct1Lib.Node) 
On Error Resume Next 
Dim SubSubfolder As Folder 
Dim Subfolder As Folder 
Dim fldFolder As Folder 


Dim 1$ 
If Node.Image — "folder1" Then 
Node.Image — "folder2" 


Set fldFolder - ObjekFile.GetFolder( 
Node.Key & "N") 


For Each Subfolder In fldFolder.SubFolders 
For Each SubSubfolder In Subfolder.SubFolders 


"Menampilkan nama-nama direktori dan sub direktori 


'ke dalam TreeView 
tvwExplor.Nodes.Add Subfolder.Path, 4, 
SubSubfolder.Path, 
SubSubfolder.Name, "folderl" 
i-it1 


"Mengatur pergerakan ProgressBar 
Me.pgbExplor.Value — i / 
f1ldFolder.SubFolders.Count “ 100 


DoEvents 
Next 
If Me.pgbExplor.Value »- 100 Then 
Me.pgbExplor.Value - 0 
i- 0 
End If 
Next 
End Sub 


Private Sub tvwExplor NodeCllick( 
ByVal Node As MSComct1Lib.Node) 

On Error Resume Next 

Dim SubSubfolder As Folder 
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Dim fldFolder As Folder 
Dim filFile As File 
Dim Subfolder As Folder 


lvwExplor.ListItems.Clear 
Set fldFolder - ObjekFile.GetFolder( 
Node.Key & "N") 


strPathxX —- fl1ldFolder 
Me.Caption - strPathX 
Dim xFile$S, i As Integer 


For Each Subfolder In fldFolder.SubFolders 
lvwExplor.ListItems.Add , 
Subfolder.Path, Subfolder.Name, 
"folderl", "folderl1" 
i-it1 
Me.pgbExplor.Value — i / 
fldFolder.SubFolders.Count “ 100 
DoEvents 

Next 


"Menampilkan nama-nama file ke dalam 

"ListView 

For Each filFile In fldFolder.Files 
xFile — LCase(Right (filFile.Name, 3)) 
lvwExplor.ListItems.Add , 
fldFolder.Path & "N" & 
filFile.Name, filFile.Name, 

xFile, xFile 


Yg bel 
Me.pgbExplor.Value — i / 
fldFolder.Files.Count “ 100 


If Err Then 
lvwExplor.ListItems.Add , 
fldFolder.Path & "NN" & 
filFile.Name, filFile.Name, 
"filegeneric", "filegeneric" 

End If 

Next 


If Me.pgbExplor.Value »- 100 Then 
Me.pgbExplor.Value -— 0 
i- 0 
End If 
End Sub 


"Prosedur untuk menampilkan isi file 

Sub LihatFile(sFile As String) 
rtfExplor.Locked - False 
rtfExplor.Font.Size — 8 
rtfExplor.Text — "" 
rtfExplor.SelAlignment — 0 
rtfExplor.RightMargin — 0 
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sPath — sFile 


'Memilih tipe file 
On Error GoTo ErrHandler 
Select Case LCase (RightS (sFile, 4)) 
Case " bmp", "jpg", gan 
Dim pic As StdPicture 
Set pic - LoadPicture (sPath) 


Clipboard.Clear 
Clipboard.SetData pic 


SendMessage rtfExplor.hwnd, 
sH302, 0, 0 


Clipboard.Clear 


rtfExplor.RightMargin —- 
pic.Width | TwipsInHimetric 

Case ".rtf" 
rtfExplor.LoadFile sPath, rtfRTIF 

Case ".txt" 
rtfExplor.LoadFile sPath, 
rtfText 

Case Else 
rtfExplor.LoadFile sPath, 
rtfText 

End Select 





rtfExplor.Refresh 
rtfExplor.Locked - True 
Exit Sub 


"Penanganan kesalahan jika tipe file 
" tidak dikenali 


ErrHandler: 
On Error GoTo 0 
rtfExplor.Text — "Format tidak dikenal" 


rtfExplor.Refresh 
rtfExplor.Locked - True 
End Sub 
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3.3 Tes Program 


Jalankan program! Tampilan program saat berjalan akan tampak 
seperti ilustrasi Gambar 3.2 berikut. 





G 1 
DIMdo5 jpg - JI ad 

(9S komputerku (JRecyced Skado2.jpg 
.aid Tidak diketahui (A1) 
&)-&@ VIANSASTRA (C:) 
#1. @ INOCHISOFT (D:) 
9 WXPHBINI EN (E:) 
2 GHOST (H:) 
5. MYBOOK (Z:) 
CI Recycled 











(Tugas Orang 

(Duas 

(CJ System Volume Information 
(JTugas Ado 

























Gambar 3.2. Program sedang berjalan dan menampilkan file gambar. 
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